home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / hex.inc < prev    next >
Encoding:
Text File  |  1985-06-03  |  640 b   |  28 lines
  1.   TYPE str4 = STRING[5];
  2.   FUNCTION hex(dec:INTEGER):str4;
  3.   CONST
  4.     chs : ARRAY [0..15] OF CHAR = '0123456789ABCDEF';
  5.  
  6.   VAR
  7.     p,q   :INTEGER;
  8.     rslt  :str4;
  9.  
  10.   BEGIN
  11.     IF dec < 0 THEN
  12.       BEGIN
  13.         dec := dec + 32767;
  14.         dec := dec + 1;
  15.         p := 8 + dec DIV 4096;
  16.       END
  17.     ELSE p := dec DIV 4096;
  18.     rslt := '$'+chs[p];
  19.     dec := dec MOD 4096;
  20.     p := dec DIV 256;
  21.     rslt := rslt + chs[p];
  22.     dec := dec MOD 256;
  23.     rslt := rslt + chs[dec DIV 16];
  24.     dec := dec MOD 16;
  25.     rslt := rslt + chs[dec];
  26.     hex := rslt;
  27.   END;
  28.